! { dg-do compile }
! { dg-options "-fcoarray=lib -fsecond-underscore" }
! PR fortran/95827 - ICE in gfc_get_string, at fortran/iresolve.c:70

module m2345678901234567890123456789012345678901234567890123456789_123
  interface
     module subroutine s2345678901234567890123456789012345678901234567890123456789_123
     end
   end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
          n2345678901234567890123456789012345678901234567890123456789_123
  integer :: x2345678901234567890123456789012345678901234567890123456789_123[*]
end
